home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / demo5 - bw5_1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  53 lines
  1. 5 kx=4.8:ky=5.76:mn=2.5
  2. 6 line=49152:hardcopy=49155:clear=49158
  3. 7 sys clear
  4. 10 deffnarc(x)=-atn(x/sqr(1-x^2))+(NULL)/2
  5. 20 bw=180/(NULL)
  6. 30 cw=fnarc((4^2+5^2-3^2)/(2*5*4))*bw
  7. 50 dim x1(50),y1(50),x2(50),y2(50),w(50),ab(50)
  8. 60 sys line,1,192*kx-1,113*ky,192*kx-1,158*ky
  9. 70 sys line,1,150*kx,113*ky,150*kx,158*ky
  10. 80 sys line,1,192*kx-1,113*ky,150*kx,113*ky
  11. 90 sys line,1,192*kx-1,158*ky,150*kx,158*ky
  12. 100 a=1
  13. 110 x1(1)=113:y1(1)=50
  14. 120 x2(1)=158:y2(1)=50
  15. 130 w(1)=90-cw:ab(1)=1
  16. 200 rem berechnen der dreiecksseiten
  17. 210 sa=sqr( (x1(a)-x2(a))^2+(y1(a)-y2(a))^2 )
  18. 220 sb=sa/5 *4
  19. 230 sc=sa/5 *3
  20. 250 rem berechnen des 3. punktes des dreiecks
  21. 260 dx=cos( w(a)/bw ) * sc
  22. 270 dy=sin( w(a)/bw ) * sc
  23. 280 x3=x1(a)+dx
  24. 290 y3=y1(a)+dy
  25. 300 sys line,1,(200-y1(a))*kx-1,x1(a)*ky,(200-y3)*kx-1,x3*ky
  26. 310 sys line,1,(200-y2(a))*kx-1,x2(a)*ky,(200-y3)*kx-1,x3*ky
  27. 400 rem quadrate ueber katheten zeichnen
  28. 410 q1=x1(a)-dy : q2=y1(a)+dx
  29. 420 q3=x3-dy : q4=y3+dx
  30. 425 :
  31. 430 x1(a+1)=q1 : y1(a+1)=q2
  32. 440 x2(a+1)=q3 : y2(a+1)=q4
  33. 445 w(a+1)=w(a)+ (90-cw):ab(a+1)=ab(a)+1
  34. 450 sys line,1,(200-y3)*kx-1,x3*ky,(200-q4)*kx-1,q3*ky
  35. 460 sys line,1,(200-q4)*kx-1,q3*ky,(200-q2)*kx-1,q1*ky
  36. 470 sys line,1,(200-q2)*kx-1,q1*ky,(200-y1(a))*kx-1,x1(a)*ky
  37. 500 :
  38. 510 q1=x3+(y3-y2(a)) : q2=y3+(x2(a)-x3)
  39. 520 q3=x2(a)+(y3-y2(a)) : q4=y2(a)+(x2(a)-x3)
  40. 525 :
  41. 530 x1(a)=q1 : y1(a)=q2
  42. 540 remx2(a)=q3 : y2(a)=q4
  43. 550 w(a)=w(a)- cw:ab(a)=ab(a)+1
  44. 560 sys line,1,(200-y3)*kx-1,x3*ky,(200-q2)*kx,q1*ky
  45. 570 sys line,1,(200-q2)*kx,q1*ky,(200-q4)*kx-1,q3*ky
  46. 580 sys line,1,(200-q4)*kx-1,q3*ky,(200-y2(a))*kx-1,x2(a)*ky
  47. 590 x2(a)=q3 : y2(a)=q4
  48. 595 if sc<mn and a=1 then 1000
  49. 600 if sc<mn then a=a-1:goto 200
  50. 610 a=a+1:goto200
  51. 1000 rem
  52. 1010 sys hardcopy,1850
  53.